Unit
lmdclass

Declaration

TLMDExceptionEvent = procedure(Sender:TObject;E:Exception;var Cancel:Boolean) of object;